Option Explicit
Sub A_Sample044()
    Dim myRng As Range
    Dim myAdr As String
    Dim i     As Long
    Dim j     As Long
    i = 4					'w}r
    j = 46
    myAdr = CStr(i) & ":" & CStr(j)
    'ǳƨ즹
    Set myRng = Range(myAdr)	'H}rwxsd
    'Set myRng = Rows(myAdr)
    MsgBox myRng.Address
    Set myRng = Nothing		'
End Sub
